home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1993 July / Internet Tools.iso / RockRidge / info-service / gopher / Unix / go4gw_1.01 / g2areacode~ < prev    next >
Encoding:
Text File  |  1992-11-16  |  1.1 KB  |  59 lines

  1. #!/usr/local/bin/perl
  2.  
  3. #----------------------------------------------------------------------
  4. # variables you should change:
  5.  
  6. $areacode_prog  = "/home/ashpool/go4gw/areacode";
  7.  
  8. #----------------------------------------------------------------------
  9.  
  10. sub areacode_main {
  11.     local($_) = @_;
  12.     
  13.     if (/^$/) {
  14.     &Greply("0List of all Area Codes\t$Ggw &.\t$Ghost\t$Gport");
  15.     &Greply("7Find a specific Area Code\t$Ggw\t$Ghost\t$Gport");
  16.     &Greply(".");
  17.     exit(0);
  18.     }
  19.     
  20.     $Afile = 1 if (/^&/);
  21.     s/^&//;
  22.  
  23.     #filter out everything but letters and numbers
  24.     s/[^A-Z^a-z^0-9 ]//g;
  25.  
  26.     open(Areaprog, "$areacode_prog $_|");
  27.     
  28.     while(<Areaprog>) {
  29.     s/\n//;
  30.     s/\r//;
  31.         push(@lines,$_);
  32.     }
  33.     
  34.     #
  35.     # Always return the output of the search first
  36.     #
  37.     if ($Afile) {
  38.     # reply with a file...
  39.     foreach (@lines) {
  40.         &Greply($_);
  41.         }
  42.     } else {
  43.     &Greply("0Search Results in a file\t$Ggw & $_\t$Ghost\t$Gport");
  44.     foreach (@lines) {
  45.         m/(\d+)/;
  46.         &Greply("0$_\t$Ggw & $1\t$Ghost\t$Gport");
  47.     }
  48.     }
  49.  
  50.  
  51.     &Greply(".");
  52.     exit(0);
  53. }
  54.  
  55.  
  56.  
  57.  
  58. 1; # for require
  59.